home *** CD-ROM | disk | FTP | other *** search
/ Greenhouse Effect Detection Expriment / NASA Greenhouse Effect Detection Expriment 1992 - Disc 2.iso / software / dos / cdf22pc / src / tools / dispstat.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-23  |  3.9 KB  |  148 lines
  1. /******************************************************************************
  2. *
  3. *  NSSDC/CDF                        Display statistics.
  4. *
  5. *  Version 1.2, 24-Feb-92, ST Systems (STX)
  6. *
  7. *  Modification history:
  8. *
  9. *   V1.0  29-Aug-91, J Love    Original version (for CDF V2.1).
  10. *   V1.1  15-Nov-91, J Love    Changes for port to IBM-RS6000 (AIX)
  11. *                involving signed vs. unsigned 'char', etc.
  12. *   V1.2  24-Feb-92, J Love    IBM PC port.  Added filter fills option.
  13. *
  14. ******************************************************************************/
  15.  
  16. #include "cdfdist.h"
  17. #include "cdfstats.h"
  18.  
  19. /******************************************************************************
  20. * DisplayMin.
  21. ******************************************************************************/
  22.  
  23. void DisplayMin () { 
  24. char evalue[80+1];
  25.  
  26. fprintf (OUTfp, "             min: ");
  27. if (minmaxInited) {
  28.   if (STRINGdataType(dataTypeV))
  29.     EncodeString (numElemsV, min, evalue);
  30.   else
  31.     EncodeValue (dataTypeV, min, evalue);
  32.   fprintf (OUTfp, "%s", evalue);
  33. }
  34. else
  35.   fprintf (OUTfp, "n/a (all fill values)");
  36. fprintf (OUTfp, "\n");
  37.  
  38. if (rangeCheckVar) {
  39.   fprintf (OUTfp, "    min in range: ");
  40.   if (minmaxInited)
  41.     if (oneINrange) {
  42.       if (STRINGdataType(dataTypeV))
  43.         EncodeString (numElemsV, minINrange, evalue);
  44.       else
  45.         EncodeValue (dataTypeV, minINrange, evalue);
  46.       fprintf (OUTfp, "%s", evalue);
  47.     }
  48.     else
  49.       fprintf (OUTfp, "(none)");
  50.   else
  51.     fprintf (OUTfp, "n/a (all fill values)");
  52.   fprintf (OUTfp, "\n");
  53.   fprintf (OUTfp, "       valid min: ");
  54.   if (STRINGdataType(dataTypeV))
  55.     EncodeString (numElemsV, validmin, evalue);
  56.   else
  57.     EncodeValue (dataTypeV, validmin, evalue);
  58.   fprintf (OUTfp, "%s", evalue);
  59.   if (minmaxInited)
  60.     fprintf (OUTfp, ", %ld low value%s", low, (low == 1 ? "" : "s"));
  61.   fprintf (OUTfp, "\n");
  62.   fprintf (OUTfp, "\n");
  63. }
  64. }
  65.  
  66. /******************************************************************************
  67. * DisplayMax.
  68. ******************************************************************************/
  69.  
  70. void DisplayMax () { 
  71. char evalue[80+1];
  72.  
  73. fprintf (OUTfp, "             max: ");
  74. if (minmaxInited) {
  75.   if (STRINGdataType(dataTypeV))
  76.     EncodeString (numElemsV, max, evalue);
  77.   else
  78.     EncodeValue (dataTypeV, max, evalue);
  79.   fprintf (OUTfp, "%s", evalue);
  80. }
  81. else
  82.   fprintf (OUTfp, "n/a (all fill values)");
  83. fprintf (OUTfp, "\n");
  84.  
  85. if (rangeCheckVar) {
  86.   fprintf (OUTfp, "    max in range: ");
  87.   if (minmaxInited)
  88.     if (oneINrange) {
  89.       if (STRINGdataType(dataTypeV))
  90.     EncodeString (numElemsV, maxINrange, evalue);
  91.       else
  92.         EncodeValue (dataTypeV, maxINrange, evalue);
  93.       fprintf (OUTfp, "%s", evalue);
  94.     }
  95.     else
  96.       fprintf (OUTfp, "(none)");
  97.   else
  98.     fprintf (OUTfp, "n/a (all fill values)");
  99.   fprintf (OUTfp, "\n");
  100.   fprintf (OUTfp, "       valid max: ");
  101.   if (STRINGdataType(dataTypeV))
  102.     EncodeString (numElemsV, validmax, evalue);
  103.   else
  104.     EncodeValue (dataTypeV, validmax, evalue);
  105.   fprintf (OUTfp, "%s", evalue);
  106.   if (minmaxInited)
  107.     fprintf (OUTfp, ", %ld high value%s", high, (high == 1 ? "" : "s"));
  108.   fprintf (OUTfp, "\n");
  109.   fprintf (OUTfp, "\n");
  110. }
  111. }
  112.  
  113. /******************************************************************************
  114. * DisplayFill.
  115. ******************************************************************************/
  116.  
  117. void DisplayFill () {
  118. char evalue[80+1];
  119.  
  120. if (filterFillsVar) {
  121.   fprintf (OUTfp, "      fill value: ");
  122.   if (STRINGdataType(dataTypeV))
  123.     EncodeString (numElemsV, fillval, evalue);
  124.   else
  125.     EncodeValue (dataTypeV, fillval, evalue);
  126.   fprintf (OUTfp, "%s", evalue);
  127.   fprintf (OUTfp, ", %ld fill value%s", fills, (fills == 1 ? "" : "s"));
  128.   fprintf (OUTfp, "\n");
  129.   fprintf (OUTfp, "\n");
  130. }
  131. }
  132.  
  133. /******************************************************************************
  134. * DISPstat.
  135. ******************************************************************************/
  136.  
  137. void DISPstat (monotonic)
  138. char *monotonic;
  139. {
  140. DisplayMin ();
  141. DisplayMax ();
  142. DisplayFill ();
  143.  
  144. fprintf (OUTfp, "       monotonic: %s\n", monotonic);
  145.  
  146. return;
  147. }
  148.